home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Loads_Of_Source.lha / screenwipes5.amos / screenwipes5.amosSourceCode < prev   
AMOS Source Code  |  1980-11-12  |  2KB  |  98 lines
  1. Dim X#(360),Y#(360)
  2. Global X#(),Y#()
  3. Curs Off : Flash Off : Cls 0
  4. '************to view all the screen wipes just run this
  5. '*********press keys 1-5 to view procedures
  6. 'get screen from bank 14 
  7. Unpack 14 To 0
  8. OPS
  9. REDO:
  10. 'call screen proc  
  11. Repeat 
  12. K$=Inkey$
  13. If K$="1" : PIC9 : DNE=True : Screen 1 : Cls 0 : End If 
  14. If K$="2" : PIC10 : Screen 1 : Cls 0 : DNE=True : End If 
  15. If K$="3" : PIC11 : Screen 1 : Cls 0 : DNE=True : End If 
  16. If K$="4" : PIC12 : Screen 1 : Cls 0 : DNE=True : End If 
  17. If K$="5" : PIC13 : Screen 1 : Cls 0 : DNE=True : End If 
  18. Until DNE
  19. Wait 30
  20. DNE=0
  21. Goto REDO
  22. Procedure OPS
  23. Screen Open 1,320,256,32,Lowres : Curs Off : Flash Off : Cls 0
  24. Get Palette(0)
  25. End Proc
  26. Procedure PIC9
  27.    Degree 
  28.    For F=0 To 360
  29.       X#(F)=Sin(F)
  30.       Y#(F)=Cos(F)
  31.    Next F
  32.    For RAD=360 To 1 Step -16
  33.       For F=0 To 360 Step 4
  34.          BEGX=160+X#(F)*RAD
  35.          BEGY=128+Y#(F)*RAD
  36.          ENX=BEGX+30
  37.          ENY=BEGY+30
  38.          Screen Copy 0,BEGX,BEGY,ENX,ENY To 1,BEGX,BEGY
  39.       Next F
  40.    Next RAD
  41. End Proc
  42. Procedure PIC10
  43.    Degree 
  44.    For F=0 To 360
  45.       X#(F)=160+160*Sin(F)
  46.       Y#(F)=128+128*Cos(F)
  47.    Next F
  48.    For F=0 To 360
  49.       XBEG=160
  50.       YBEG=128
  51.       XEND=X#(F)
  52.       YEND=Y#(F)
  53.       If XEND<XBEG Then Swap XEND,XBEG
  54.       If YEND<YBEG Then Swap YEND,YBEG
  55.       Screen Copy 0,XBEG,YBEG,XEND,YEND To 1,XBEG,YBEG
  56.    Next F
  57. End Proc
  58. Procedure PIC11
  59.    For Y1=0 To 256
  60.       X1#=X1#+0.5
  61.       C1=X1#*2
  62.       Screen Copy 0,X1#,Y1,X1#+(320.0-C1),Y1+1 To 1,X1#,Y1
  63.       Wait Vbl 
  64.    Next Y1
  65.    For Y=256 To 0 Step -1
  66.       Screen Copy 0,0,Y,320,Y+1 To 1,0,Y
  67.       Wait Vbl 
  68.    Next Y
  69. End Proc
  70. Procedure PIC12
  71.    X1#=0
  72.    For Y1=0 To 128
  73.       X1#=X1#+1.5
  74.       C1=X1#*2
  75.       Screen Copy 0,X1#,Y1,X1#+(320.0-C1),Y1+1 To 1,X1#,Y1
  76.       Wait Vbl 
  77.    Next Y1
  78.    X1#=160
  79.    C1#=X1#
  80.    For Y1=128 To 256
  81.       X1#=X1#-1.5
  82.       C1#=C1#+1.5
  83.       Screen Copy 0,X1#,Y1,C1#,Y1+1 To 1,X1#,Y1
  84.       Wait Vbl 
  85.    Next Y1
  86.    For T=0 To 165
  87.       Screen Copy 0,160-T,0,(160-T)+1,255 To 1,160-T,0
  88.       Screen Copy 0,(160+T)-1,0,160+T,255 To 1,159+T,0
  89.       Wait Vbl 
  90.    Next T
  91. End Proc
  92. Procedure PIC13
  93.    For Y=0 To 256 Step 20
  94.       For X=0 To 320 Step 3
  95.          Screen Copy 0,X,Y,X+3,Y+20 To 1,X,Y
  96.       Next X
  97.    Next Y
  98. End Proc